object frmMain: TfrmMain Left = 195 Top = 111 AutoScroll = False Caption = 'Demo TStringGridEx' ClientHeight = 346 ClientWidth = 526 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object cmdGetStatus: TButton Left = 400 Top = 8 Width = 121 Height = 49 Caption = 'Get Selected Status' TabOrder = 0 OnClick = cmdGetStatusClick end object cmdSelect: TButton Left = 400 Top = 64 Width = 121 Height = 49 Caption = 'Select 1st Row ' TabOrder = 1 OnClick = cmdSelectClick end object cmdUnselect: TButton Left = 400 Top = 120 Width = 121 Height = 49 Caption = 'Un-select 1st Row ' TabOrder = 2 OnClick = cmdUnselectClick end object cmdShowSelectCount: TButton Left = 399 Top = 176 Width = 121 Height = 49 Caption = 'Selected Rows Count' TabOrder = 3 OnClick = cmdShowSelectCountClick end object cmdRefresh: TButton Left = 399 Top = 232 Width = 121 Height = 49 Caption = 'Refresh' TabOrder = 4 OnClick = cmdRefreshClick end object cmdExit: TButton Left = 400 Top = 288 Width = 121 Height = 49 Cancel = True Caption = 'Exit' TabOrder = 5 OnClick = cmdExitClick end object gridDemo: TStringGridEx Left = 16 Top = 24 Width = 353 Height = 305 ColCount = 30 CTL3D = True Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goRowSelect] TabOrder = 6 end end